home *** CD-ROM | disk | FTP | other *** search
- /* REXX COMMAND FILE THAT WILL RUN THE DDTT DEVICE DRIVER PROGRAM. */
-
- call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
- call SysLoadFuncs
- call SysCls
-
- LineNum = "2"
- pos = SysCurPos(LineNum,6)
- SAY "THIS COMMAND FILE TESTS CDROM DEVICE DRIVERS. THIS PROGRAM"
- LineNum = LineNum + 1
- pos = SysCurPos(LineNum,6)
- SAY "RUNS SCRIPT FILES WHICH EXERCISE CDROM FUNCTIONS."
- LineNum = LineNum + 1
- pos = SysCurPos(LineNum,6)
- SAY "YOU WILL NEED AN AUDIO DISK TO EXECUTE THESE FUNCTIONS."
- LineNum = LineNum + 1
- pos = SysCurPos(LineNum,6)
- SAY "EXECUTE ALL FUNCTIONS."
-
- J=1
- CALL SETINFO.CMD J, LINENUM
-
- SAY " "
- SAY " "
- SAY " PLEASE PLACE ANY AUDIO DISK IN THE CDROM DRIVE AND CLOSE THE DRIVE."
- SAY " PRESS ENTER WHEN YOU HAVE FINISHED."
- PULL PRESSKEY
-
-
- /*--------------------------CDROM TEST SCRIPTS----------------------------*/
-
- /*------------------------LOCKING THE CDROM DRIVE-------------------------*/
-
- "DDTT LOCK.SCR"
- /*--------------------------CDROM QUERY SCRIPTS---------------------------*/
-
- "DDTT QAUDCH.SCR"
- "DDTT QAUDCH2.SCR"
- "DDTT QSTA.SCR"
- "DDTT QAUDSTA.SCR"
- "DDTT QAUDSTA2.SCR"
- "DDTT QAUDDK.SCR"
- "DDTT QAUDDK2.SCR"
- "DDTT AUDCH.SCR"
- "DDTT AUDCH2.SCR"
- "DDTT QAUDTRK.SCR"
- "DDTT QCHAN.SCR"
- "DDTT QCHAN2.SCR"
- "DDTT QDRIV.SCR"
- "DDTT QSECIN.SCR"
- "DDTT QUPCC.SCR"
- "DDTT QVOLSIZE.SCR"
- "DDTT DRLOCSC.SCR"
- "DDTT DRLOCTS.SCR"
- /*------------------------CDROM AUDIO SEEK SCRIPTS-------------------------*/
-
- "DDTT SEEKSEC.SCR"
- "DDTT SEEKTS.SCR"
- "DDTT SEEKTS2.SCR"
- /*------------------------CDROM AUDIO PLAY SCRIPTS-------------------------*/
-
- "DDTT PAUDTS.SCR"
- "DDTT RESUME.SCR"
- "DDTT PAUDTS2.SCR"
- "DDTT PAUDTS3.SCR"
- "DDTT PAUDTS4.SCR"
- "DDTT PAUDSC.SCR"
- "DDTT SAUD.SCR"
- "DDTT PAUDSC2.SCR"
- "DDTT PAUDSC3.SCR"
- "DDTT SAUD2.SCR"
- "DDTT RESUME2.SCR"
-
- /*------------------------UNLOCKING THE CDROM DRIVE-----------------------*/
-
- "DDTT RESET.SCR"
- "DDTT UNLOCK.SCR"
- "DDTT EJECT.SCR"
-
- "@CLS"
- SAY " "
- SAY " SEARCHING LOG FILES FOR ANY ERROR MESSAGES...."
- SAY " "
- call search 'ERROR', '*.LOG', 'RESULTS1.TXT'
- "TYPE RESULTS1.TXT|MORE"
-
- EXIT
- /* DONE */
-
-